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Guida per l’input dei programmi 
sullo ZX Spectrum 


Come è noto, lo Spectrum è provvisto Pi 
2 serie di tasti grafici: una prima serie di 16 
caratteri grafici predefiniti (i tasti numerici 
da 1 a 8 e gli stessi 'shiftati") e una serie 
di caratteri definibili dall'utente nell’ambi¬ 
to di un programma (le lettere da A a U). 
In entrambi i casi, per ottenere i caratteri 
desiderati occorre entrare in modo grafico 
(cursore contrassegnato dalla lettera G 
lampeggiante) premendo contemporanea¬ 
mente i tasti CAPS SHIFT e 9 
Nei nostri listati i caratteri grafici predefiniti 
sono indicati da una G e dal numero corri¬ 
spondente al tasto che occorre digitare, il 
tutto racchiuso tra due parentesi graffe 
A esempio (G4) significa che occorre digi¬ 
tare il tasto 4, con il cursore in modo grafi¬ 
co. 

Analogamente la codifica SG, seguita da 
un numero da 1 a 8, significa che occorre 
digitare il relativo tasto numerico premen¬ 
do contemporanemaente il tasto CAPS 
SHIFT. 

Ad esempio quando si trova la codifi¬ 


ca (SG2), occorre premere il tasto 2 con¬ 
temporaneamente al tasto CAPS SHIFT, ov¬ 
viamente con il cursore in modo grafico. 
In entrambi i casi precedenti, quando un 
simbolo grafico deve essere digitato più 
volte, i caratteri GoSG della codifica sono 
preceduti da un numero che specifica 
quante volte va premuto il tasto grafico in¬ 
dicato. 

Cosi ad esempio (8G5) significa che il ta¬ 
sto grafico 5 va digitato 8 volte, analoga¬ 
mente (4SG1} significa che il tasto grafico 
1, premuto insieme a CAPS SHIFT, deve 
essere battuto 4 volte I caratteri grafici de¬ 
finibili (le lettere da AaU in modo grafico) 
hanno una codifica semplificata: la lettera 
corrispondente, sottolineata 

Quando in un listato viene presentata, ad 
esempio, una A sottolineata, occorre en¬ 
trare in modo grafico (al solito premendo 
contemporaneamente i tasti CAPS-SHIFT e 
9) e quindi digitare semplicemente il tasto 
che contrassegna la lettera A 


1 Quando leggete 1 

Premete 

(Gl) 

03 

(G2) 

[ 

EE 

(G3) 

OH 

IG4) 

03 ■ 

(G5) 

1 

eh ■ 

(G6) 

OH 5 

(G7) 

FU H 

(G8J 

1 

on □ 

(SGl} i 


HEl 013 

[SG2)| 

IW -«-< «<••• 

COOE J 

(SG3 ) 


rsn n r ■ 

(SG4) 

(SG5) 


odì r 

r^-i ri a 

( SG6 ) 


OES f 

(SG7) 


GOOH ■ 

(SG8) 


□Don ■ 


Vedrete 




Vedrete | 


Simbolo grafico 
definito nel 
programma In uso. 



2 




































CI6'-plus/4 


6 Super-Tris 30. (JovStldO 

ai M Doyle trad e adatt di F Sarcina 

* fa Qui vive 

IV di F lemmln traci e adatt di F Sorcina 



M v Fallout 

13 di C Davis trac e adatt di F Sartina 

Pesi massimi 

I # di F MeCormet trad e adatt di M Antico» 


TI-99/4A 

M TI Paint 1.1 (BASIO 

di C Resena trad e adatt di E Re Garbaseli 

M Papertrls (BASO 

di R Resena trad e adatt di E Re Garbasnatl 


sindlaii - 

Spectrum 


A m Vivere pericolosamente <16/-48K) 

« O di F Smitn e E Horwood trad e adatt di C Panzalis 

aa Pesciolini (16/48K) 

3W di M Walter irad e adatt di C Panzalis 


J.sorts.r.l. 

DIRCZIÓNE REDAZIONI 

E AMMINISTRAZIONE 

V le Rastalli. 5 
20124 Milano 
Tal.: 68 88 22868 37.97 

DIRETTORE RE9RON9ABILE: 

Pietro Dell Orco 

COORDINAMENTO TECNICO: 

Ludo Brsgsgnoio 
Mauro Crfttulb Gnzzl 

REDAZIONE: 

Carlo Panzana 
Franco Sarei na 

GRAFICA E IMPAOINAZIONE 

Margherita La Noce 
Ivana Rosai 
Rallaella Tottolattl 


POTOCOM POSIZIONE: 

Grapbotek 

Via Astesani. 16 - Milano 
Tal. 64 80 397 


CONT ABILITAI 

Giulia Pedrezzmi 
Flavia Bona Iti 


AUTORIZZAZIONE ALIA 
PUBBLICITÀ: 

Aut. Min Rlch 


STAMPA. 

intergrafice - Pioltailo (MI) 

Rivista assodata 
all Unione stampa 
Periodica Italiana 


PUBBLICITÀ 

Concessionario per l'Italia a l'Estero 
J Advertising s r.l. 

V le Reslaw. 5 

20124 MILANO 

68*8^8^8-60 60.606-68.87.233 
TI* 316213 REINA I 
Concessionario eeclutivo per la 
DIFFUSIONE in Italia a Eataro: 
SODIP - Via Zumi». 25 

20125 MILANO 

Spedizione m abbonamento 
postala Gruppo 11/70 
Prezzo dalla rivista L. 1.300 
Numero arretra» L 2.600 
C TUTTI I DIRITTI DI 
RIPRODUZIONE O TRADUZIONE 
DEGLI ARTICOLI PUBBLICATI 
SONO RISERVATI 


3 















Questo articolo è rivolto esclusiva- 
mente ai "Commodoriani ' che usa¬ 
no il VIC 20, il 06 o il Plus/4. 

Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di STOP BUG per il tuo computer. 
Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: "-.rem" seguita da un nume¬ 
ro, detto checksum,- NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me ? per PRINT). 

Usando STOP BUG tieni conto del 


fatto che gli spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE (su VIC 20) 
oppure RUN/STOP e RESET (su 
06 0 PLUS/4). 

Per riattivarlo batti: 

SYS PEEK (56)*256 per il VIC 20; 
SYS 16128 per il 06 e il Plus/4. 
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STOP BUG per CI 6 c PLUS/4 


100 POKE55,0 :POKE56,63 :PRINT"{CLR)ATTENDERE PREGO..." 

110 FORI-16128TOl6260:READA:CK=CK+A:POKEI,A: NEXT 
120 IFCKOl 4 24 8THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYSl6128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201,32,208,1 ,96,1 41 
210 DATA33,63,173,35,3,141 ,34,6 3,169 
220 DATA32,1 41 , 34,3,1 6 9,63,1 41,35,3 
2 30 DATAI 69,0,1 33,6,96,32,2 32,235,1 33 
240 DATA3,134,4,132,5,8,201,13,240 
250 DATA17,201,32,240,5,24,101 ,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,1 3,32,210,255,165,205,1 41 ,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,210,2 55,169,1 8,32,210,255 
300 DATAI 69,58,32,210,255,166,6,1 69,0 
310 DATAI 33,6,1 72,33,63,1 92,2 32,2 08,6 
320 DATA32,95,164,76,117,63,32,7,208 
330 DATAI 69,32,32,210,255,32,21 0,255,173 
340 DATA251,3,133,205,76,55,63 


STOP BUG PER VIC 20 


100 POKE55,0 :POKE56,PEEK(56)-1:R=PEEK(56)*256:PRINT"{CLR) 
ATTENDERE PREGO..." 

1 10 FORI=RTOR+l32 :READA:CK=CK + A:IFA=999THENA= R/256 
120 POKEI,ArNEXT 

130 IFCK022689THENPRINT" {GIU * )ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"{CLR}{ 2 GIU’){RVS)STOP BUG{OFF) ATTIVAT 
O. : ncw 

200 DAtÀi73,36,3,201,32,208,1,96,141 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 

2 30 DATAI 69,0,1 33,254,96,32,87,241 , 1 33 
240 DATA251 , 1 34,252,1 32,253,8,201 , 1 3,240 
250 DATAI 7,201,32,240,5,24,101 ,25 4,1 33 
260 DATA254.165,251,166,252,164,253,40,96 
270 DATAI 69,13, 32,21 0,2 55,1 6 5,21 4 , 1 41 , 251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9, 32,210,255,169,1 8,32,21 0,255 
300 DATAI 69,58, 32,210,2 55, 166,2 54,1 69,0 
310 DATAI 33.2 54,1 72,3 3,999,192,87,208,6 
320 DATA32,205, 1 89,76,1 1 7,999,32,205,221 

3 30 DATAI 69,32,3 2,21 0,255,32,21 0,2 55,1 73 
340 DATA251,3,133,214,76,55,999 
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Joystick 


Ì 

9 - 

I Super-Tris 3D 


Ricordate il vecchio gioco del Tris? 
Bisogna mettere in fila, in una scac¬ 
chiera di nove caselle, tre croci o 
tre cerchi e, se nessuno dei due 
giocatori commette uno sbaglio, le 
partite non hanno mai vincitore 
(come sanno bene coloro che han¬ 
no visto il film ~War Games"). Noi 
vi riproponiamo questo gioco in 
una versione tridimensinale, deci¬ 
samente più appassionante di 
quella classica: ora le scacchiere 
sono tre, ed è possibile fare Tris, 
oltre che nel modo classico, anche 
ponendo i tre simboli ognuno su 
una scacchiera diversa (purché sia¬ 
no allineati tra loro). 


I due giocatori, dopo aver intro¬ 
dotto i loro nomi, selezionano il 
numero di partite che vogliono fa¬ 
re,- appaiono quindi le tre scac¬ 
chiere. Per giocare si usa il joystick 
inserito nella porta h muovendolo 
verso destra 0 sinistra, il giocatore 
di turno sposta un cursore, selezio¬ 
na la casella desiderata e premen¬ 
do il pulsante traccia il suo simbo¬ 
lo. Il computer analizza veloce¬ 
mente la situazione e dà la vittoria 
al primo che realizza un Tris. Alla 
fine della partita viene visualizzato 
il bilancio delle vittorie conseguite 
dai due concorrenti. 


100 SCNCLR:COLORO,1 :COLOR4,5,3:VOL8 : rem 172 

110 DIMOI(28) : FORI = 1T02 7 : READXI:X2=X2+X1:DI(1 + 1)=X2:NEXTI 
: DI(1)=0 : rem 178 

120 PRINTTAB(1 0) " {GIU' } {CYN}S U P E R {RED}{ 3 C} {CYtJ}T 
R I S" : rem 114 

130 PRINTTAB(9)"{GIU'}{RED}{ 3 SPAZI}{RVS}£{ 6 SPAZI} 

{OFF}{ 2 SPAZI}{RVS}{ 6 SPAZI}[<*>]" : rem 49 

140 PRINTTAB(9)"{ 2 SPAZI}{RVS}£{ 8 SPAZI}{OFF} {RVS} 

{ 7 SPAZI}[<*>)" : rem 5 

150 PRINTTAB(9)" {RVS}£{ 9 SPAZI}{OFF} {RVS}{ 8 SPAZI} 

[<*>]" : rem 6 

160 PRINTTAB(9)"{BLU}{RVS}£{ 6 SPAZI}{RED}{ 4 SPAZI}{OFF} 
{RVS}{ 3 SPAZI}{BLU}{ 6 SPAZI}{<*>]" : rem 97 

170 PRINTTAB(9)"{RVS}{ 8 SPAZI}{RED}{ 3 SPAZI}{OFF} {RVS} 
{ 3 SPAZI}{BLU}{ 7 SPAZI}[<*>]" : rem 154 

180 PRINTTAB(9)"{RVS}{ 2 SPAZI}{RED}{OFF}£{ 2 SPAZl}{RVS} 
£{BLU}{ 2 SPAZI}{RED}{ 3 SPAZI}{OFF} lRVS}{ 3 SPAZI} 
TBLU}{ 2 SPAZI}{OFF} {RVS}{RED}{ 3 SPAZI}{BLU} 

{ 2 SPAZI}" : rem 204 

190 PRINTTAB(9)"{ 4 SPAZ1}{RVS}{RED}£ {BLU}{ 2 SPAZI} 

{RED}{ 3 SPAZI}{OFF} {RVS}{ 3 SPAZI}{BLU}{ 2 SPAZI} 
{OFF} {RVS}{RED}{ 3 SPAZI}{BLU}{ 2 SPAZI}" : rem 128 
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200 

210 

220 

230 

240 

250 

260 


270 

280 

290 

300 

310 

320 

330 

340 
3 50 

360 

370 

380 

390 

400 

410 

420 

430 

440 


PRINTTAB(9)"{ 3 SPAZI}{RVS}{RED}£{ 2 SPAZl}{BLU} 

{ 2 SPAZI}{RED}{ 3 SPAZI}{OFF} {RVS}{ 3 SPAZI}{BLU} 

{ 2 SPAZI}{OFF} {RVS}{RED}{ 3 SPAZI}{BLU}{ 2 SPAZI}" 

:rem 120 

PRINTTAB(9)"{ 3 SPAZI}{RVS}{ 5 SPAZI}{RED}{ 3 SPAZI} 
{OFF} {RVS}{ 3 SPAZI}{BLU}{ 2 SPAZI}{OFF} {RVS}{RED} 

{ 3 SPAZI}{BLU}{ 2 SPAZI}" :rem 149 

PRINTTAB(9)"{ 3 SPAZI}{RVS}{ 5 SPAZI}{RED}{ 3 SPAZI} 
{OFF} {RVS}{ 3 SPAZI}{BLU}{ 2 SPAZI}{OFF} {RVS}{RED} 

{ 3 SPAZI}{BLU}{ 2 SPAZI}" :rem 150 

PRINTTAB(9)"{ 2 SPAZI}{RVS}{RED}£{ 3 SPAZI}{BLU} 

{ 2 SPAZI}{RED}{ 3 SPAZI}{OFF} {RVS}{ 3 SPAZI}{BLU} 

{ 2 SPAZI}{OFF} {RVS}{RED}{ 3 SPAZI}{BLU}{ 2 SPAZI}" 

:rem 123 

PRINTTAB(9)" {RVS}{RED}£{ 4 SPAZI}{BLU}{ 2 SPAZI} 
{RED}{ 2 SPAZI}{OFF}£ {RVS}{ 3 SPAZl}{BLU}{ 2 SPAZI} 
{RED} { 4 SPAZIHBLUJI 2 SPAZI}" :rem 129 

PRINTTAB(9)"{RVS}{RED}£{ 5 SPAZI}{BLU}{ 2 SPAZI}{RED} 
{OFF}£{ 2 SPAZI}{RVS}! 3 SPAZI}{BLU}{ 2 SPAZI}{RED} 

{ 4 SPAZI}{BLU}{ 2 SPAZI}" : rem 130 

PRINTTAB(9)"{RVS}{ 2 SPAZI}{RED}{ 4 SPAZI}{BLU} 

{ 2 SPAZI}{RED}{OFF}£{ 3 SPAZI}[<*>]{RVS}{ 2 SPAZI} 

{BLU}{ 2 SPAZI}{RED}T 4 SPAZI}{BLU}{ 2 SPAZI}" 


:rem 185 

PRINTTAB(9)"{RVS}{ 7 SPAZI}{OFF}£{ 5 SPAZI}{RED}[<*>} 
{RVS} {BLU}{ 7 SPAZI}{OFF}£" : rem 127 

PRINTTAB(9)"[<*>]{RVS}{ 5 SPAZI}{OFF}£{ 7 SPAZI}{RED} 
[<*>} {RVS}{BLU}{ 6 SPAZI}{OFF}£" : rem 95 

PRINTTAB(3)"{ 3 GIU'}[<3>]PULSANTE DEL JOYSTICK PER G 
IOCARE" : rem 34 

IF(JOY(1)ANDl28)=0THEN300 :rem 132 

PRINT"{CLR} [<6>]"; :COLORO,1:DIMP(27):0=1 :rem 39 

PH=-1024:CU=32:CC=0 :rem 255 

P(1)=3167:P(2)=3170 :P(3)=3173:P(4)=3249:P(5)=3252:P(6 
) =3255:P(8)=3334 :rem 21 

P(7)=3331 : rem 118 

P( 9) =3337:P(10)=3487:P(11)=3490:P(12)=3493:P(13)=3569 
:P(14)*3572:P(15)=3575 :rem 89 

P ( 1 6) =3651 :P( 1 7)=3654:P(18)=3657:P(1 9)=3807:P(20)=381 
0 :P(21)=3813 :rem 57 

P( 22) =3889:P(2 3)=3892:P(24)=3 895:P(25)=3971 :P(26)=397 
4 :P(27)=3977 :rem 103 

FORD=lT02:PRINT"GIOCATORE N.";D; :POKE2 39,0:INPUTPL$(D 
):NEXT:CO(1)=68:CO(2)=69 :rem 214 

FORV=lT02:PL$(V)=LEFT$(PL$(V),11):NEXT :rem 8 

M(2)=87:M(1)*86:L=1 :rem 184 

P0KE239,0:INPUT"QUANTE PARTITE";RD :rem 132 

PRINT"{CLR}{RED}";:FORV=lT03 :rem 12 

PRINTTAB(12)"[< 9 @>]" : rem 183 

PRINTTAB(12)"{RVS}[<*>]{OFF}{ 2 SPAZl}M{ 2 SPAZl}M 
{ 2 SPAZI}M" : rem 222 
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450 

460 

470 

480 

490 

500 
51 0 
520 
530 
540 
550 
560 

570 

580 
590 
600 
61 0 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 

740 

750 

760 

770 

780 

790 
800 
81 0 
820 
830 

840 

850 


PRINTTAB(12)"[<*>]{RVS}[<*>]{OFF}[<@>] M[<@>] 
M" : 

PRINTTAB(13)"[<*>]{RVS}[<*>]{OFF}[< 2 T>]M[< 
[< 2 T>] M" : 

PRINTTABll4)"[<*>]{RVS}[<*>}{OFF}[<@>] M[<@>] 
M" : 

PRINTTAB(15)"[<*>}{RVS}{<*>]{OFF}[< 2 T>}M[< 
{< 2 T>} M" : 

PRINTTAB( 1 6)"[<*>}{RVS}[<*>}{OFF}{ 2 SPAZl}M 
{ 2 SPAZI}M{ 2 SPAZI}M" : 

PRINTTAB(17)"[<*>}{RVS}{ 9 SPAZI}" : 

ONVGOTO520,530,540 : 

PRINT"{BLU}"; :NEXT : 

PRINT"{YEL}";:NEXT : 

R=1 : 

POKEP(O),160:POKEP(O)+PH,113 : 

PRINT"{HOME}{YEL}PARTITA:{<6>J";R;"{HOME}{ 6 
[<6>]":PRINT"ORA TOCCA A" 


M[<@>] 
rem 170 
2 T> ) M 
rem 146 
M [ < @ > ] 
rem 174 
2 T>} M 
rem 150 

198 
231 
226 
59 
187 
89 
89 

187 


rem 

rem 

rem 

rem 

rem 

rem 

rem 

GIU' 

rem 


} 


FORV=1TOLEN(PL$((LANDl)+1 ))+1 :PRINT" 

0 :PRINTPLS(L) 

J=JOY(1)ANDl5 
IFJ=3THENPP=1:GOTO620 
IFJ=7THENPP=-1:GOTO640 
GOTO720 

IFO=2 7THENO= 2 6 :NX=CU:NC=CC:GOT06 7 0 
NX=PEEK(P(O+l)):NC=PEEK(P(O+l)+PH):GOTO660 
IFO=lTHENO=2:NX=CU:NC=CC:GOTO670 
NX=PEEK(P(O-1)):NC=PEEK(P(O-1)+PH) 

POKEP(0),CU:POKEP(0)+PH,CC 

0=0+PP 

CU=NX:CC=NC 

POKEP(O),160 :POKEP(0)+PH,1 

SOUND1,900,5 

GOTO730 

FORD=lTOl5:NEXT 


:NEXT:POKE202, 


: rem 
:rem 
:rem 
:rem 
: rem 
:rem 
:rem 
:rem 
: rem 
: rem 
:rem 
: rem 
: rem 
: rem 
:rem 
: rem 


192 
209 
47 
90 
105 
146 
21 8 
38 
209 
77 
67 
167 
250 
119 
107 
180 


POKEP(0),CU:POKEP(0)+PH,CC:FORD=1T045 :NEXT:POKEP(0),1 


60:POKEP(O)+PH,113 
J=JOY(l)ANDl28:IFJ=0THEN580 
IFCU=32THEN780 
SOUND1,300,40 
GOTO580 

POKEP(0) ,M(L) :POKEP(0)+PH,CO(L):CU= 


;rem 156 
:rem 80 
:rem 51 
:rem 166 
:rem 116 
=M(L):CC=CO (L) 

: rem 112 

SOUNDl,800,40 :rem 1 ™ 

A=0:B=0:C=0 :rem “ 

RESTORE:READX:FORI = 1 TODI(O)+13:READX,Y:NEXTI: rem 151 

FORI=DI(0)+lTODI(O+l) :rem 188 

READX,Y:IF(PEEK(P(X))=M(L))AND(PEEK(P(Y))=M(L))THENB= 
X:C=Y:A=0 :rem 31 

NEXTI :rem 36 

IFA=0THEN960 :rem 168 
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860 PRINT"{HOME}{ 7 GIU'jHA VINTO{ 3 SPAZI}” : rem 18 
870 FORV=lTOLEN(PL$((LANDl)+1)) :PRINT” "; :NEXT:POKE202,0 : 

PRINTPLS (L) " 1" : rem 204 

880 SC(L)=SC(L)+1 : rem 159 

890 T=900:FORX=lTOl0 : rem 182 

900 H=INT(16*RND(1))+64 :rem 230 

910 POKEP(A)+PH,H :rem 226 

920 POKEP(B)+PH,H :rem 228 

930 POKEP(C)+PH,H :rem 230 

940 SOUNDl,T,30:T=T-60:NEXT:GOTO950 :rem 162 

950 FORO=lT027:POKEP(O), 32 :POKEP(O)+PH,0:NEXT :rem 41 

960 IFL=1THENL=2:GOTO980 :rem 230 

970 L=1 :rem 90 

980 IFA=0THEN560 :rem 168 

990 CU=32 :CC=0 :NX=*0 :NC*0 :O a l :rem 133 

1 000 R=R+1 :IFR>RDTHENl020 : rem 223 

1010 GOTO560 : rem 150 

1020 PRINT"{CLR}{ 5 GIU'}" :rera 124 

1 030 PRINT"{ 2 DES}{ 3 GIU'}PUNTEGGIO FINALE" : rem 99 

1 040 PRINT"{YEL}{ 2 DES}[< 16 Y>J {GRN}" : rem 252 

1 050 PRINT"{ 2 DES}"PL$(1);":";SC(1) : rem 31 

1060 PRINT"{GIU 1 }{ 2 DES}"PL$(2);":";SC(2) :rem 51 

1070 PRINT"{GIU'}{ 2 DES}[<3>)PULSANTE DEL JOYSTICK 

{ 2 SPAZI}PER RIGIOCARE" : rem 167 

1080 PRINT"{GIU'}{ 9 DES}{<1>]<RETURN>{ 2 SPAZl}PER SMETT 
ERE{GIU'}":POKE239,0 :rem 79 

1090 IF(JOY(1)ANDl28)>0THENRUN :rem 30 

1100 GETA$:IFA$=CHR$(13)THENEND :rem 46 

Ilio GOTOl090 :rem 198 

1 120 DATA7,4,7,4,5,4,7,4,7,4,5,4,5,12,5,4,5,4,7,4,7,4,5,4 
,7,4,7 :rem 31 

1130 DATA2,3,4,7,5,9,1 0,1 9,1 3,25,1 1,21,1 4,27,1,3,5,8,1 1 ,2 
0 :rem 31 

1140 DATAI 4,2 6,2,1,6,9,5,7,12,21,15,27,14,25,1 1,19,5,6 

:rem 111 

1150 DATAI 4,24,1 3,22,1 ,7,1,9,2,8,3,7,4,6,14,23,15,24 

:rem 6 

1160 DATA3,9,14,22,4,5,1,4,3,5,8,9,16,25,13,19,17,27,14,2 
1 :rem 55 

1170 DATA7,9, 2,5,17,26,14,20,1,5,3,6,7,8,18,27,15,21,17,2 

5,14,19 : rem 100 

1180 DATAI 1,12,13,16,14,18,1,19,10,12,14,17,2,20,3,19,1 ,2 
1 :rem 31 

1190 DATA14,16,15,18,10,11,3,21,10,16,14,15 : rem 80 

1 200 DATA4,22,1,25,7, 1 9,1 0,1 8,1 1 ,1 7,1 2,1 6,1 3,1 5,2,26 

: rem 4 

1210 DATAI,27,3,25,4,24,6,22,7,21,8,20,9,19,12,18 

:rem 125 

1 220 DATAI 3,1 4,6,24,3,27,9,21,1 0,1 3,1 8,1 7,1 2,1 4,7,25 

: rem 1 2 
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73 


1 230 DATAI 1 ,14,16,18,8,26,9,25,7,27,12,15,10,14,16,17 

: rem 

1240 DATA9,27,20,21,22,25,23,27,1,10,9,14,7,13,3,11 

:rem 21 3 

1 250 DATA23,26,2,1 1 ,8,1 4,19,21,19,20,27,24,23,25:rem 80 

1 260 DATAI 2,3,9,1 5,7, 14,1 ,1 1,1 9,25,23,24,4,1 3,6,14 

:rem 170 

1 270 DATAI 9,27,20,26,21 ,25,22,24,5,1 4,22,23,21 ,27 

:rem 128 

1280 DATA6,15,4,14,23,21,26,27,19,22,7,16,1,13,9,17 

:rem 233 

1 290 DATA3,14,20,23,25,27,8,17,2,1 4,19,23,21 ,24,25,26 

:rem 71 

1300 DATA9,18,3,15,7,17,1,14 :rem 130 


% 

| Qui vive 


Questo gioco, appassionante e an¬ 
tichissimo, si effettua su una scac¬ 
chiera di dimenioni 5x5. Ogni gio¬ 
catore dispone di 5 pedine e deve 
cercare di sistemarle in modo da 
ottenere una configurazione sim¬ 
metrica. Nella versione che vi pre¬ 
sentiamo il vostro avversario è il 
06 . 

All'inizio del gioco la scacchiera è 
vuota e, alternativamente, voi e il 


computer dovrete disporre le pe¬ 
dine su di essa impostando le 
coordinate desiderate (Al, B3, D2 
ecc ). Una volta sistemate tutte le 
pedine comi acerete a muovere 
cercando di ottenere una configu¬ 
razione vincente. Dovrete in que¬ 
sto caso digitare prima le coordi¬ 
nate della pedina che volete muo¬ 
vere, quindi le coordinate della 
posizione d'arrivo desiderata. 
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REM QUI VIVE 

:rem 

no 

20 

COLORO,9,3:COLOR4,6,3 

:rem 

131 

30 

DIMSF(41,4),SO(41) 

:rem 

112 

40 

DIMD (107,1) , DF (15,8) 

:rem 

1 53 

50 

DIMCC(4,1) , B (24),C(24) 

:rem 

242 

60 

GOTO1830 

:rem 

107 

70 

REM CALCOLA I PUNTI DI DF 

:rem 

42 

80 

GV=0:Pl=0:P2=0:Cl=0:C2=0 

:rem 

250 

90 

D1 =B (DF(NF,0)): D2=B (DF(NF,1)) 

:rem 

197 

100 IFD1=1 OR D2=1 THENPl=1 

:rem 

166 

110 IFDl=10OR D2=lOTHENCl=10 

:rem 

42 





120 Di=B(DF(NF,2)):D2=B(DF(NF,3) ) 

130 IFD1=1 OR D2=l THENP2=1 

140 IFDl=1OOR D2=10THENC2 = 10 

150 GV=B(DF(NF , 4))+B(DF(NF,5))+B(DF(NF,6)) 

160 P=GV+Pl+P2+C1+C2 

170 IFGV=30AND(Cl=0ORC2 = 0)THENP=P-1 0 
180 IFGV=3AND(Pi=0ORP2=0)THENP=P-1 
190 RETURN 

200 REM INI ZIALI ZZA LE FIGURE SINGOLE 
210 FORI=0TO41:READX$ 

220 FORJ=lT05 

230 SF(I,J-1)=ASC(MID$(X$»J/1))-65 

240 NEXT:NEXT:RETURN 

250 REM CONFIGURAZIONI 

260 DATA UQMSY,PLHNT,KGCIO 

270 DATA AGMIE,FLRNJ,KQWSO 

280 DATA AGMQU,BHNRV/CIOSW 

290 DATA EIMSY,DHLRX,CGKQW 

300 REM PER (X) 

310 DATA ACGKM,BDHLN,CEIMO 
320 DATA FLHPR,GIMQS,HJNRT 
330 DATA KMQUW,LNRVX ,MOSWY 
340 REM PIU' (+) 

350 DATA BFGHL,CGHIM,DHIJN 
360 DATA GKLMQ,HLMNR,IMNOS 
370 DATA LPQRV,MQRSW,NRSTX 
380 REM DIAGONALI (/) 

390 DATA AGMSY » EIMQU 
400 REM COLONNE (I) 

410 DATA AFKPU,BGLQV,CHMRW 
420 DATA DINSX,EJOTY 
430 REM RIGHE (-) 

440 DATA ABCDE,FGHIJ,KLMNO 
450 DATA PQRST,UVWXY 
460 REM 

470 REM INIZIALIZZA LE FIGURE DOPPIE 
480 FORI=0TOl07STEP12:READXS 
490 FORJ-OTOl1:FORK=0TOl 

500 L=2*J+K+1:D(I+J,K)=ASC(MID$(X$,L,1))-49 
510 NEXT:NEXT:NEXT 
520 RETURN 

530 DATA"171 :1 AlClElMiOlP2>2@2B2J" 

540 DATA"393<3=3?3G474:4=4?4A4040" 

550 DATA"4P5@5B5D5J696<6C6E6M7=7A" 

560 DATA"7C7I707P8>8B8D8J9?9E9K:?" 

570 DATA":A:E:K:0:P;>;@;D;J<=<C<I" 

580 DATA"=G = I=0>F>H>J?G?K?P@F@J@L" 

590 DATA"AGAIAKAMAOAPBHBJBNCICMCP" 

600 DATA"DJDLDNEKEMEOFRFWGSGWHTHW" 

610 DATA"IRIXJSJXKTKXLRLYMSMYNTNY" 

620 REM 


:rem 

243 

: rem 

170 

: rem 

46 

:rem 

239 

:rem 

89 

:rem 

1 34 

:rem 

65 

:rem 

1 22 

: rem 

40 

: rem 

10 

:rem 

11 

:rem 

55 

:rem 

1 04 

:rem 

162 

: rem 

1 56 

: rem 

127 

:rem 

140 

: rem 

147 

:rem 

7 

:rem 

62 

: rem 

138 

:rem 

21 4 

:rem 

12 

:rem 

66 

:rem 

1 42 

:rem 

218 

:rem 

135 

:rem 

228 

: rem 

32 

:rem 

123 

:rem 

237 

:rem 

104 

: rem 

66 

: rem 

44 

:rem 

126 

: rem 

225 

: rem 

229 

:rem 

237 

:rem 

57 

: rem 

199 

:rem 

119 

:rem 

118 

: rem 

102 

:rem 

164 

:rem 

225 

:rem 

1 

:rem 

94 

:rem 

1 58 

:rem 

2 

: rem 

132 

: rem 

124 
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630 

REM VALUTA IL CAMPO DELLE FIGURE DOPPIE 

: rem 

56 

640 

TC=4:TN=0 

: rem 

235 

650 

FORI=0TO4:C(SF(D(DF,0),I))=1:NEXT 

: rem 

158 

660 

FORI=0TO4:SF=SF(D(DF, 1 ) ,1) 

:rem 

251 

670 

IFC(SF)=1THEN690 

: rem 

1 49 

680 

DF(NF,TN)=SF:TN=TN+1:GOTO700 

:rem 

210 

690 

DF(NF,TC)=SF:TC=TC+1:C(SF)=0 

:rem 

124 

700 

NEXT 

:rem 

214 

710 

FORI=0TO4:SF=SF(D(DF , 0) ,1) 

: rem 

246 

720 

IFC(SF)=1THENDF(NF,TN)=SF:TN=TN+1:C(SF)=0 

:rem 

240 

730 

NEXT:RETURN 

:rem 

243 

740 

REM VISUALIZZA IL CAMPO 

:rem 

150 

750 

PRINTSPC(14)"{GIU'}1 3 SPAZI}ABCDE{GIU" 

:rem 

122 

760 

FORI=0TO4:PRINTSPC(14)5-1;:FORJ»0TO4 

: rem 

9 

770 

F=I*5+J 

: rem 

62 

780 

IFB(F)=OTHENPRINT". 

:rem 

221 

790 

IFB(F)=1THENPRINT"W"; 

:rem 

136 

800 

IFB(F)=1OTHENPRINT^Q"; 

:rem 

170 

81 0 

NEXT:PRINT5-I:NEXT 

: rem 

195 

820 

PRINTSPC(14)"{GIU'}{ 3 SPAZl}ABCDE{ 2 GIU'}" 

1 :rem 

137 

830 

RETURN 

:rem 

123 

840 

REM 

:rem 

128 

850 

OM=-1 :WM=-1 

: rem 

77 

860 

FORSF=0TO41 

:rem 

1 47 

870 

P=B(SF(SF,0))+B(SF(SF , 1))+B(SF(SF,2))+B(SF(SF,3))+B(S 


F (SF,4)) 

:rem 

28 

880 

IFP=0ORP=l0ORP=20ORP=30THENSO(SF)=10 :G0T098C 

l:rem 

9 

890 

IFP040THEN930 

: rem 

41 

900 

GOSUB990 

:rem 

1 87 

910 

GOSUBl030 

:rem 

222 

920 

WM= 1 :SF=41:GOTO980 

:rem 

54 

930 

IFP>20ORP< 30RP=110RP=12THENSO(SF)=0:GOTO980 

: rem 

216 

940 

SO(SF)=1 

:rem 

151 

950 

IFP=4ANDOM=-lTHENGOSUB990 

:rem 

73 

960 

IFP=14THENGOSUB1030 

:rem 

147 

970 

IFP=5THENSF=41 

:rem 

91 

980 

NEXT:RETURN 

: rem 

250 

990 

REM DETERMINA LE MOSSE OBBLIGATE (OM) 

:rem 

173 

1000 FORI=0TO4 

: rem 

53 

1010 IFB(SF(SF,I))=OTHENOM=SF(SF,I) 

: rem 

73 

1020 NEXT:RETURN 

:rem 

28 

1030 REM 

:rem 

168 

1040 FORI-0TO4 

:rem 

57 

1050 IFB(SF(SF r I))<>1OTHENl 090 

: rem 

1 80 

1060 FORJ=>OTOCC-1 

: rem 

236 


1070 IFSF(SF,I)*CC(J,0)THENCC(J,1)=1 :rem 36 

1080 NEXT : rem 8 

1090 NEXT : rem 9 

1100 RETURN :rem 162 

1110 REM : rem 167 



1130 

FORI=OTOl5 

:rem 

107 

1140 

DF(I,8)=-1 

:rem 

233 

1 150 

DF(1,7)=0 

: rem 

1 87 

1 160 

NEXT 

: rem 

7 

1170 

FORDF=OTOl07 

:rem 

226 

1 1 80 

01 =SO(D(DF,0)):02=S0(D(DF,1)) 

:rem 

92 

1 1 90 

IFOl 00 20R01 =OOR02=OTHENl310 

: rem 

230 

1 200 

GOSUB630 

:rem 

220 

1 210 

GOSUB70 

: rem 

171 

1 220 

IFP=40RP=14THENDF(NF,7)=1:GOTOl250 

;rem 

82 

1 230 

IFOl=1ORP<=DF(NF,8)THENl310 

: rem 

116 

1 240 

DF(NF, 7 ) = 1 0 

: rem 

55 

1 250 

DF(NF,8)=P 

:rem 

40 

1 260 

NF=0 

:rem 

202 

1 270 

FORI=OTOl5 

:rem 

112 

1 280 

IFDF(I,8)>=DF(NF,8)THENl300 

:rem 

35 

1 290 

IFDF ( I , 7)=0ORDF(I,7)=10THENNF=1 

: rem 

70 

1 300 

NEXT 

: rem 

3 

1 310 

NEXT 

: rem 

4 

1 320 

RETURN 

:rem 

166 

1 330 

REM VALUTA LA MOSSA STRATEGICA 

:rem 

111 

1 340 

IFWM=1THENl490 

: rem 

1 02 

1 350 

MC=0:N2=0 

:rem 

237 

1 360 

FORNF=0TOl5 

: rem 

1 87 

1 370 

IFDF(NF,7)= 0THEN1 430 

; rem 

1 44 

1 380 

GOSUB70 

:rem 

179 

1 390 

IFDF(NF,7)=1THENl 420 

:rem 

1 46 

1 400 

IFP=MCTHENN2=N2+1 

: rem 

57 

1 410 

IFP>MCTHENMC=P:N2=l 

: rem 

231 

1 420 

IFP=4THENNF=15 

:rem 

125 

1 430 

NEXT 

: rem 

7 

1 440 

IFPP=-lTHENl490 

:rem 

144 

1450 

IFP=4THENRETURN 

:rem 

41 

1 460 

IFMC<MPTHENRETURN 

:rem 

210 

1 470 

IFMC=MPANDN 2<NlTHENRETURN 

:rem 

226 

1 480 

IFMC=MPANDN2=NlANDRND(0)<.5THENRETURN 

:rem 

187 

1 490 

MP=MC:Ni=N2 

;rem 

174 

1 500 

PP=CP:PT=CT 

:rem 

232 

1 510 

RETURN 

:rem 

167 

1 520 

REM MOSSA DEL GIOCATORE 

: rem 

161 

1 530 

IFPC<5THENl570 

: rem 

88 

1 540 

PRINT"CHE PEDINA VUOI MUOVERE"; 

:rem 

189 

1 550 

GOSUBl 650 :PT=X 

:rem 

138 

1 560 

IFB(PT)< >1THENPRINT"IMPOSSIBILE1":GOTOl540 

:rem 

219 

1 570 

PRINT"DOVE VUOI METTERE LA TUA PEDINA"; 

:rem 

136 

1 580 

GOSUBl650 :PP=X 

:rem 

137 

1 590 

IFB (PP) OOTHENPRINT"IMPOSSIBILE! " JGOTOl 570 

: rem 

220 

1 600 

IFPC=5THENB(PT)=0 

:rem 

46 

1 610 

IFPC< 5THENPC=PC + 1 

: rem 

73 

1 620 

B(PP)=1 

: rem 

106 

1 630 

PRINT"{CLR}{ 3 GIU'}";GOSUB740 

13 

:rem 

182 


1640 

1 650 

1 660 

1670 

1680 

1690 

1700 

171 0 

1720 

1730 

1 740 

1 750 

1 760 

1770 

1780 

1790 

1800 

1810 

1820 

1 830 

1 840 

1850 

1 860 

1870 

1880 

1890 

1 900 

1910 

1 920 

1930 

1 940 

1 950 

1 960 

1970 

1 980 

1 990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 


RETURN 

:rem 

171 

REM INPUT 

:rem 

64 

INPUTX$: IFLEN(XS) 02THEN171 0 

: rem 

242 

L$=LEFT$(X$,l):D$=RIGHT$(X$,l) 

:rem 

159 

IFL$<"A"ORL$ >"E"ORD$<"1 "ORD$> " 5' 

"THENl 710 : rem 

217 

X=ASC(L$)- 5*VAL(D$)- 40 

:rem 

1 82 

RETURN 

:rem 

1 68 

PRINT"INPUT ERRATO! RIPROVA:":GOTOl660 :rem 

1 81 

REM MOSSA DEL COMPUTER 

: rem 

117 

PRINT"{CLR}{GIU'}":IFCC< 5THENPT 

=CC:CC=CC+1:GOTOl790 


: rem 

1 85 

PRINTSPC(14)"PRENDO{ 2 SPAZI}"CHR$(65+PT-INT(PT/5)* 5 

); 5-INT(PT/5) 

:rem 

62 

B(PT)=0 

:rem 

113 

FORCI=0TO4 

: rem 

1 33 

IFCC(CI,0)=PTTHENPT=CI:CI=4 

:rem 

209 

NEXT 

: rem 

15 

PRINTSPC(13)"MUOVO IN{ 2 SPAZI}’ 

"CHR$(6 5+PP-INT(PP/5) 

*5); 5-INT(PP/5):PRINT 

:rem 

98 

B(PP)=10:CC(PT,0)=PP 

:rem 

136 

GOSUB740 

: rem 

229 

RETURN 

: rem 

171 

REM PARTE PRINCIPALE 

: rem 

19 

PRINT"{CLR}{BLK}{GIU'}":PRINTSPC(15)"ATTENDERE 


{ 2 GIU'}" 

:rem 

56 

GOSUB200 

: rem 

224 

GOSUB470 

: rem 

234 

CC=0:PC=0 

: rem 

253 

PP=12:GOTO2090 

: rem 

79 

FORI = 0TO4:CC(I,1)=0 :NEXT 

: rem 

227 

GOSUB840 

: rem 

230 

IFP=5THENPRINT"{GIU'}FINE.": END 

: rem 

142 

IFWM=1THENl940 

: rem 

106 

GOSUBl110 

: rem 

16 

MP=0: Ni=0 :PP=-1 

: rem 

115 

BF=0:EF=24 

: rem 

44 

IFOM<>-1THENBF=OM:EF=OM 

: rem 

1 

FORCP=BFTOEF 

: rem 

62 

IFB (CP) O0THEN2080 

: rem 

42 

B(CP) =10 

: rem 

1 51 

IFCC < 5THENGOSU B1 330:GOT02070 

: rem 

250 

FORCI=0TO4 

: rem 

1 22 

IFCC(CI,1)THEN2060 

: rem 

10 

CT=CC(CI,0):B(CT)=0 

: rem 

41 

GOSUBl330 

: rem 

13 

B(CT)=10 

: rem 

143 

NEXT 

: rem 

7 

B (CP) =0 

: rem 

92 

NEXT 

: rem 

9 

GOSUBl720 

: rem 

21 
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2100 

IFWM=1THENP=5:GOTOl910 

: rem 

1 47 

21 1 0 

GOSUBl520 

: rem 

1 2 

2120 

PRINTSPC(15)"{ 2 GIU'}ATTENDERE" 

:rem 

241 

2130 

GOTOl890 

:rem 

209 


Fallout 



All'inizio di questo semplice ma 
appassionante gioco, vedrete sul¬ 
lo schermo delle barrette interrotte 
da alcune fessure. Lo scopo del 
gioco è di riuscire a fare passare 
delle pedine, rappresentate da nu¬ 
meri, poste al di sopra delle barre, 
attraverso le fessure, spostando le 
barrette stesse con dei semplici co¬ 
mandi impostati nel formato xyz, 
dove: 


1 0 REM FALLOUT 
20 DIM H(16,8) 

30 PRINT"{CLR}{GRN}" 

40 POKE36879,31 
50 FORX=OTOl6 
60 FORY=1T08 
70 H(X,Y)«1 
80 NEXTY, X 
90 REM 

100 FORY=lT08 
110 FORBII T04 
120 X=INT(RND(0)*1 6+1 ) 

130 H(X,Y)=0 
140 NEXTB,Y 

150 REM NUMERAZIONE BARRE 
160 FORB=lT08 
170 H(2*B-1,0)=B+1 00 
180 NEXTB 

190 GOSUB460 :REM DISEGNO 
200 GOSUB650 :REM MODIFICA 
210 GOSUB460:REM DISEGNO 
220 REM 


x è il numero della barretta; 
y è la direzione dello spostamento 
(S=sinistra D=destra); 
z è il numero degli spostamenti che 
desiderate la barretta effettui. 

Ad esempio, la mossa 5D3 fa spo¬ 
stare 3 volte verso destra la barret¬ 
ta n. 5. Vince chi fa "cadere ' tutti 
i numeri utilizzando il minor nume¬ 
ro di spostamenti possibile. 


: rem 

92 

: rem 

160 

: rem 

229 

: rem 

52 

: rem 

27 

:rem 

239 

:rem 

75 

:rem 

132 

: rem 

77 

:rem 

26 

:rem 

0 

: rem 

182 

:rem 

119 

: rem 

155 

: rem 

51 

: rem 

9 

:rem 

196 

: rem 

26 

: rem 

21 9 

:rem 

7 

: rem 

21 2 

: rem 

120 
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230 

INPUT"{GIU'}MOSSA";Z$ 

: rem 

182 

240 

Y=VAL(LEFT$(Z$,1)) 

: rem 

21 9 

250 

IFY<1ORY>8THEN3 80 

: rem 

38 

260 

D$=MID$(Z$,2,1) 

: rem 

197 

270 

DX=VAL(MID$(Z$,3)) 

: rem 

210 

280 

IFDX=OTHEN380 

: rem 

252 

290 

IFD$ <>"S"ANDD$ <>"D"THEN380 

: rem 

170 

300 

IFD$="S"THENGOSUB840:REM SCIVOLA A SINISTRA 

: rem 

134 

310 

IFD$ = "D"THENGOSUB910 : REM SCIVOLA A DESTRA 

: rem 

204 

320 

BR=BR+1 

: rem 

86 

330 

GOSUB650 

: rem 

177 

340 

GOSUB460 

: rem 

177 

350 

IFSC>=36THENPRINT"{ 2 GIU'{CONGRATULAZIONI, 

{ 6 SPAZI){GIU'}CE L'HAI FATTA !": END 

: rem 

232 

360 

IFDX>1THENDX=DX-1:GOTO300 

: rem 

59 

370 

REM 

: rem 

126 

380 

PRINT"{HOME}{ 12 GIU'}" 

: rem 

75 

390 

FORY=l2TO20 

: rem 

129 

400 

PRINT"{ 20 SPAZI}" 

: rem 

101 

41 0 

NEXTY 

: rem 

45 

420 

PRINT"{ 20 SPAZI}"; 

: rem 

162 

430 

PRINT"{HOME}{ 12 GIU'}" 

: rem 

71 

440 

GOTO2 30 

: rem 

102 

4 50 

REM DISEGNO 

: rem 

134 

460 

PRINT"{HOME}{GIU'}{DES}"; 

: rem 

231 

470 

FORYl=0TO8 

: rem 

84 

480 

REM 

: rem 

128 

490 

IFYl=0THENPRINT"{ 3 SPAZI}"; 

: rem 

94 

500 

IFY1>0THENPRINTSTR$(Yl);"> "; 

: rem 

200 

510 

FORX= 0TO16 

: rem 

76 

520 

Z=H(X,Yl) 

: rem 

21 3 

530 

GOSUB600:REM SCRIVE L'ELEMENTO 

: rem 

100 

540 

NEXTX 

: rem 

48 

550 

PRINT 

: rem 

39 

560 

NEXTY1 

; rem 

100 

570 

PRINTSPC(5)"{GIU'}PUNTEGGIO:";SC:PRINTSPC(5) 

"SPOSTAME 


NTI:";BR 

: rem 

126 

580 

RETURN 

: rem 

125 

590 

REM SCRIVE L'ELEMENTO 

; rem 

26 

600 

IFZ=0THENPRINT" "; 

: rem 

39 

610 

IFZ=1THEN PRINT"{RVS}[<@>]{OFF}"; 

: rem 

113 

620 

IFZ>100THEN PRINTCHRS(Z — 5 2) ; 

: rem 

135 

630 

RETURN 

: rem 

121 

640 

REM MODIFICA 

: rem 

186 

650 

FORYl=8TOOSTEP-1:REM CERCA DA CIMA A FONDO 

: rem 

192 

660 

FORX= OTOl6 

: rem 

82 

670 

TY= Yl 

: rem 

17 

680 

IFH(X,Yl)<l00THEN 760 

: rem 

109 

690 

IFTY> = 8THEN 800 :REM FONDO RAGGIUNTO 

: rem 

153 

700 

IFH (X ,TY+1 ) OOTHEN 760:REM BLOCCATO 

: rem 

39 

710 

REM PORTA L'ELEMENTO GIU' 

: rem 

21 8 
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720 

H(X/TY+1)=H(X,TY) 

: rem 

198 

730 

H(X,TY)=0 

: rem 

209 

740 

TY=TY+1 

: rem 

1 42 

750 

GOTO690:REM CONTINUA A SPOSTARE 

: rem 

1 65 

760 

NEXTX 

: rem 

52 

770 

NEXTYl 

: rem 

103 

780 

RETURN 

:rem 

127 

790 

REM FONDO RAGGIUNTO 

: rem 

170 

800 

SC=SC+H(X f TY)-100 

: rem 

1 80 

810 

H(X,TY)=0 

:rem 

208 

820 

GOTO760 

:rem 

112 

830 

REM SPOSTA LA BARRA A SINISTRA 

:rem 

252 

840 

TM=H(0,Y) 

: rem 

200 

850 

FORX=OTOl5 

:rem 

82 

860 

H(X,Y)=H(X+1,Y) 

: rem 

35 

870 

NEXTX 

: rem 

54 

880 

H(16,Y)=TM 

: rem 

3 

890 

RETURN 

:rem 

129 

900 

REM SPOSTA LA BARRA A DESTRA 

:rem 

80 

91 0 

TM=H(16,Y) 

: rem 

253 

920 

FORX=l6T01STEP-1 

: rem 

236 

930 

H(X,Y)=H(X-1,Y) 

: rem 

35 

940 

NEXTX 

: rem 

52 

950 

H(0,Y)=TM 

: rem 

202 

960 

RETURN 

:rem 

1 27 


Pesi massimi 



Vorresti imitare le gesta di grandi 
campioni della boxe, come Cassius 
Clay e Carlos Monzon ? Con questo 
fantastico gioco è possibile com¬ 
battere contro IO campioni del ca¬ 
libro del grande Clay. Prima del 
match potrai scegliere tra di essi 
l'avversario contro cui combattere, 
tenendo conto che i pugili sono 
elencati in ordine crescente di for¬ 
za. 

Sullo schermo appare il ring con le 


seguenti informazioni: numero del 
round, tempo e punti. I due pugili 
si trovano inizialmente nei due an¬ 
goli; il tuo è quello nell'angolo su¬ 
periore sinistro. Nel corso del 
match puoi muoverti utilizzando i 
tasti [Z] e IX] per andare su e giù e 
i tasti [<] e [>] per sportarti a sini¬ 
stra e a destra,- con i tasti Commo¬ 
dore e shift, invece, azioni le brac¬ 
cia per boxare (anche mentre ti 
muovi). 
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Ed ora puoi anche diventare Cam¬ 
pione deI Mondo dei pesi massi¬ 


mi... senza farti neanche un graf¬ 
fio! 


io 

20 

30 

40 

50 

60 


70 


80 


90 


100 


no 


REM * PESI MASSIMI* 
REM *PAPERSOFT* 
GOSUB470 
R=1 


: rem 
:rem 
: rem 
: rem 


221 

78 

126 

36 


20 GIU'}":PRINTCHRS(8):POKE36878,l5:SO=36876 

A$(0)■" { 3 SPAZI}{GIU'}{ 3 SIN} UQ {GIU'}{ 4 SIN} 

RVS} {OFF} { 2 SPAZI}{GIU'}{ 4 SIN} JQ {GIU'}{ 4 SIN} 

{ 4 SPAZI}" — :rem 41 

A$ ( 1)■"{ 5 SPAZI}{GIU'}{ 5 SIN} U*Q {GIU'}{ 5 SIN} 
{RVS} {OFF } { 2 SPAZI}{GIU'}{ 4 SIN! JQ {GIU'}{ 4 SIN} 


120 

130 

140 

150 

160 

170 

180 
1 90 
200 

210 

220 

230 

240 

250 

260 

270 

280 

290 


{ 4 SPAZI}" 

A$(2)="{ 3 SPAZIHGIU'H 3 SIN} UQ {GIU 
{RVS} {OFF} { 2 SPAZI}{GIU 1 }{ 4 SIN} J*Q 

{ 4 SIN}{ 4 SPAZI}" - 

B$(0)="{ 4 SPAZI}{GIU'}{ 4 SIN} QI {GIU 
{ 2 SPAZI}{RVS} {OFF} {GIU'}{ 4 SIN} QK 

{ 4 SIN}{ 4 SPAZI}" - 

B$(l)="{ 4 SPAZI}{GIU' } { 4 
{ 2 SPAZI}{RVS} {OFF} {GIU 
{ 4 SIN}{ 4 SPAZI}" 

B$(2)="{ 4 SPAZI}{GIU 1 }{ 4 
{ 2 SPAZI}{RVS} {OFF} {GIU . 

{ 4 SIN}{ 4 SPAZI}":GOSUB320 

X=1 :Y = 3:F = 17:G=16: TM = 3:GOSUB350 . J _ cul 

P=PEEK(653):K=PEEK(197):X=X+{((K=29)AND(X>1 ) )-((K 

and( x<14))) !r èa 

Y=Y+((K=33)AND(Y>3))-((K=26)AND(Y<16)) :rem 

IFK=29ANDX<F-3THENP=0 :rem 


:rem 
' }{ 4 SIN} 
{GIU'} 

:rem 
}{ 4 SIN} 

_ {GIU'} 

:rem 

SIN}Q*I_ {GIU 1 } { 4 
'}{ 4 SIN} QK {GIU 


SIN} 
'}{ 4 


QI {GIU ' } { 4 
SIN}Q*K {GIU 


SIN} 

} 

rem 

SIN} 

} 

rem 

rem 


194 


237 


1 91 


168 


249 
6 1 
37) 
15 
12 

PRINT"{HOME}{CYN}"LEFT$(D$,Y)SPC(X)A$(P); irem 119 

IFX=F-2THENIF((Y-1=G)AND(P=1))OR((Y+l=G)AND(P=2))THEN 
P1=P1+1:S=200:GOSUB310 :rem 177 

IFP1=K2THENGOTO640 :re[ p 101 

F=F+(((F>X+2)-<F<X+2))*INT(RND(l)*2)) :rem 151 

G=G+(((G>Y-1)-(G<Y+1))*INT(RND(1)*2))+(G=Y)*(INT(RND( 


1)*3)-1) 

B=0:IFG<YTHENIFRND(1)>SKANDG>Y-2THENB 
IFG>YTHENIFRND{1)>SKANDG<Y+2THENB=1 
IFX=F-2THENIF({Y+l=G)AND(B=1))OR((Y-l 
P2=P2+1:S=150:GOSUB310 
IFP2=K1THENGOTO670 
IFG< 3THENG = 3 
IFF<X+1THENF=X+1:B=0 
IFG>Y+30RG<Y-3THENB=0 


:rem 
=2 :rem 
:rem 
=G)AND(B=2)] 
: rem 
:rem 
: rem 
: rem 
: rem 


198 

215 

236 

THEN 

152 

101 

194 

172 

31 

72 


PRINT"{HOME}{YEL}"LEFT$(D$,G)SPC(F)B$(B); :rem 
GOSUB350:TS=TS-1 :IFTS=-1THENTM=TM-1 :TS=59:IFTM=-1THEN 
GOTO360 • :rem 127 
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300 GOTO130 : rem 96 

310 POKESO,S:FORT=lTOT 00:NEXTT:POKESO,0 : RETURN :rem 73 

320 S$="[<+>]":QS=S$:FORT=lTO20:S$=S$+"[<+>]":Q$=Q$+" ":N 
EXTT:Q$=Q$+"[<+>]" : rem 11 

330 PRINT"{CLR}{GRN}{ 2 GIU'}"S$"[<+>]";:FORT=1TOl9:PRINT 
Q$;:NEXTT:PRINTSS"{ 2 SIN}{INST}[<+>]{HOME}";:S$="":Q 
$ = :z=FRE (0) :rem 223 


340 


350 


360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 


480 

490 

500 

510 

520 

530 

540 

550 

'560 

570 

580 

590 

600 


1 1 0 
151 
1 7 
92 
55 
254 
104 
14 

123 

231 


85 
1 86 
A 


PRINT"{PUR}{RVS}ROUND{ 2 SPAZl}TEMPO{ 2 SPAZl}PUNTI 
{ 3 SPAZI}{OFF}";:RETURN :rem 154 

PRINT"{HOME}{GIU'}"R"{ 3 SPAZI}"TM"{SIN}:"TS"{SIN} 

PRINTTAB(13)"{SU}"Pl"{SIN} ”P2"{SIN} ": RETURN 

:rem 

R=R+1:IFR=4THENR=3:G0T06515 :rem 

X=X+(X >1) : Y=Y+(Y>3):F=F-(F<17):G-G-(G<16) :rem 
PRINT"{HOME}{CYN}"LEFT$<D$,Y)SPC(X)B$(0); :rem 
PRINT"{HOME}{YEL}"LEFT$(D$, G)SPC{F)A$(0); :rem 
IF(X< = 1)AND(Y< = 3)AND(F>=17)AND(G> = 16)THEN420: rem 
GOTO370 ; rem 

FORT=lTOl0:POKESO,220 :rem 

PRINT"{HOME}{ 8 GIU'}( 4 DES}PREPARATI PER{GIU’} 

{ 7 DES}IL PROSSIMO ROUND" :rem 

FORL = l TOl00:NEXTL:POKESO,0:TS = 0 :rem 

PRINT"{HOME}{ 8 GIU'}{ 4 DES}{ 13 SPAZI}{GIU'} 

{ 7 DES }{ 17 SPAZI}" :rem 

FORL=1TO10 0 :NEXTL,T:GOTO120 :rem 

POKE36879,8:PRINT"{YEL}{CLR}{RVS}P E S l{ 2 SPAZI}M 
S S I M I{OFF}"; :PRINT"{CYN}{GIU'}{ 5 SPAZl}D I 
{ 2 SPAZI}B O X E" : rem 20 

PRINT"{GIU*}{GRN}VUOI ESSERE CAMPIONE ?" :PRINT"{WHT} 
SCEGLI L'AVVERSARIO:{GIU'}" :rem 184 

FORT=1TO10 :READW$(T):PRINTT"{SIN}..:IFT< 1 0THENPRINT 

:rem 118 

PRINTWS(T):NEXT :rem 187 

PRINT" {YEL}BATTI UN NUMERO (1 -1 0) " : INPUTC: IFCCOOROl 0 
THEN510 : rem 207 

W$ = LEFT$(W$(C) ,6):FORT=lTOl0 : WS(T)="":NEXT :rem 155 

SK= (11-C)/12:K2=10+C+INT(RND(1)*6) :Kl=16-C+INT(RND(1) 
*10) • :rem 58 

PRINT"{CLR}USA: < =SINISTRA":PRINTTAB(5)">=DESTRA":PRI 
NTTAB(5)"Z=SU" :rem 83 

PRINTTAB(5)"X=GIU'":PRINT"{GIU'}PER B( RE{ 3 SPAZI} 
CBM=SIN.":PRINTTAB(11)"SHIFT=DES." :rem 174 

PRINT"{ 2 GIU'}PUOI MUOVERTI E BOXARE{ 2 SPAZI}NELLO 
STESSO TEMPO" :rem 44 

PRINT"{ 2 GIU 1 }{RED}UN TASTO{ 2 SPAZI}PER INIZIARE" 

:rem 27 

GETQQ5:0N-(QQ$="")GOTO580:RETURN :rem 207 

DATA"ENRICO IL BROCCO","GIULIO IL BRUTO","MARCO L'INC 
APACE" :rem 236 

DATA"LUCIO IL MEDIO","FRANCO IL BELLO" :rem 159 
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610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 


DATA"CARLO IL GRANDE","MAURO 
UPER" 

DATA"SERGIO LA BELVA" 

DATA"ANDREA IL CICLOPE" 

IPP1-K2THENPRINT"{HOME}{ 

.0. 1 ":FORT = 1T06000:NEXT 


SPACCAMURO","EMILIO IL S 
:rem 225 
:rem 182 
:rem 54 

GIU'}{ 3 DESjL'HAI messo k 

:rem 220 

PRINT"{CLR} BRAVISSIMOi!":PRINT"{GIU'}HAI BATTUTO "W$ 
,"IN"R"ROUND":FORT-1T03000:NEXT :rem 179 

GOTO690 , :rem 

IFP2=K1THENPRINT"{HOME}{ 6 GIU'}{ 3 DESjSEI FINITO 
O.1":FORT=lT06000:NEXT 

PRINT"{CLR}PECCATO!I{GIU'}":PRINTW$" TI HA 
IN"R"ROUND": FORT-1T03000:NEXT 

PRINT"{GIU'}IL RISULTATO AI PUNTI E':"Pl"PER 
TTAB(3)P2"PER "WS :POKEl98,0 
FORT-1TO5000:NEXT 
CLR:GOTO20 


116 
K. 

:rem 189 
BATTUTO"," 
:rem 10 
TE":PRIN 
rem 147 
rem 33 
rem 78 


d 

& 

| Ti Pant 2.2 BAS,C 


Questa volta vi proponiamo 
un'ennesima versione dell'ormai 
famoso programma già pubblicato 
su uno di questi numeri, però per¬ 
fezionata per almeno un paio di 
cose: la penna si può muovere con 
il Joystick n. 1 (opzionalmente), e 
qui è definito un vero pixel , a diffe¬ 
renza della versione 1.0 che defini¬ 


va un cerchietto. Alcuni avverti¬ 
menti: con poche modifiche, e ma¬ 
gari con l'aggiunta di qualche "cali 
color", il programma può diventare 
una routine per programmi grafici 
(se ve ne capita l'occasione, potete 
crearne uno voi stessi da inviare poi 
a Papersoft). 


100 REM 
110 REM 

120 CALL CLEAR 

130 CALL CHAR(1 29,"00384404081 0207C") 

140 PRINT TAB(8);"TI PAINT A.A" 

150 PRINT :::" USA E,S,D,X OPPURE I" 

160 PRINT JOYSTICK PER DISEGNARE." 

170 PRINT PREMI ’Q’ O IL BOTTONE" 

180 PRINT :" DI SPARO PER CAMBIARE IL":" COLORE. 
190 CALL COLORO, 3,3) 
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200 CALL COLOR(4,16,16) 

210 1=15 

220 J=12 

230 RANDOMIZE 

240 G=INT(RND*7+1)*8+32 

250 PRINT PREMI UN TASTO." 

260 CALL KEY(0,K,S) 

270 IP S<1 THEN 260 

280 CALL CLEAR 

290 CALL COLOR(2,2,2) 

300 CALL COLOR(5,5,5) 

310 CALL COLOR(6,14,14) 

320 CALL COLOR(7,7,7) 

330 CALL COLOR(8,12,12) 

340 CALL SCREEN(8) 

350 CALL HCHAR(J,I,G) 

360 CALL KEY(1,K,S) 

370 IF S=0 THEN 510 
380 IF K=18 THEN 580 
390 IF K>5 THEN 360 
400 11=0 
410 JJ=0 

420 ON K+l GOTO 430,360,450,470,360,490 

430 JJ=4 

440 GOTO 540 

450 II=-4 

460 GOTO 530 

470 11=4 

480 GOTO 530 

490 JJ=-4 

500 GOTO 530 

510 CALL JOYST(l,II,JJ) 

520 IF (11=0)+(JJ=0)=-2 THEN 360 
530 1=1+11/4 
540 J=J+JJ/4 

550 1= INT ( 32+ ( (1-1 )/32-INT( (I-D/32) ) )+1 
560 J=INT(24*((J-l)/24-INT((J*1)/24)))+1 
570 GOTO 350 

580 CALL SOUND (100,1497,2) 

590 G=G+8 

600 IF G<89 THEN 350 
610 G=32 
620 GOTO 350 
630 END 
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99/4A 


Papcrtris 


Questa è una eccellente variante 
del celeberrimo TRIS. Sulla tabella 
verranno disposti dei numeri in or¬ 
dine cresente, e voi non dovrete 
fare altro che inserire la vostra 
mossa quando richiesto, semplice- 
mente inserendo il numero della 
posizione desiderata. Dopodiché 


BASIC 


dovete solo speare in quaclhe "pa¬ 
pera “del buon vecchio TI (peraltro 
rarissima nel secondo livello). 
Questo semplice programma uti¬ 
lizza un'ottima grafica ad alta riso¬ 
luzione (col solito ma efficiente 
metodo), mostrando come segnali 
una X o una 0. 


1 oo REM 
1 1 0 REM 

1 20 CALL CLEAR 

130 PRINT TAB(9);"PAPER--TRIS" 

140 PRINT : : :"CERCA DI FARE TRIS SU UNA": :"FILA.": : : 

150 FOR C=104 TO 114 
1 60 READ C$ 

1 70 CALL CHAR(C,C$) 

180 NEXT C 

190 DATA 00030C102020404,FF,0000300804040202,808080808080 
808,0101010101010101,40402020100C03 

200 DATA OOOOOOOOOOOOOOFF,0202040408300,8040201 008040201 , 
010204081020408,8142241818244281 
210 CALL COLOR(10,7,1) 

220 CALL COLORII 1,5,1) 

230 FOR C=1 TO 9 
240 READ X(C) , Y (C) 

250 NEXT C 

260 DATA 6,9,6,15,6,21,12,9,12,15,12,21,18,9,18,15,18,21 

270 FOR 1=1 TO 9 
280 T(I)=0 
290 NEXT I 
300 FL=0 

310 PRINT : "-PREMI :1 PER AMATORE" 

320 PRINT TAB(7);"2 PER PROFESSIONISTA" 

330 CALL KEY(0,K,S) 

340 IF (K<49)+(K>50)THEN 330 
350 L= K-48 

360 PRINT ::"PREMI:1 -- X, PRIMA MOSSA" 

370 PRINT TAB ( 7 ) ; "2 -■>-•0, SECONDA MOSSA" 

380 CALL SOUND(150,1497,2) 

390 CALL KEY(0,K,S) 
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400 IF (K< 49) + (K>50)THEN 390 

410 C=K-48 

420 CALL CLEAR 

430 FOR 1=1 TO 11 

440 RANDOMIZE 

450 CALL SOUND(-100,INT(RND*900+500) ,2) 

460 CALL HCHAR(2,10+1,ASC(SEG$("PAPER--TRIS" 

4 70 NEXT I 

480 CO=INT(RND*8)+9 

490 CALL COLOR(9,CO,CO) 

500 CALL VCHAR(5,13,96,17) 

510 CALL VCHAR(5,19,96,17) 

520 CALL HCHAR(10,8,96,17) 

530 CALL HCHAR(16,8,96,17) 

540 FOR 1=1 TO 9 

550 CALL HCHAR(X(I)+1 ,Y (I)+1,48+1) 

560 NEXT I 

570 IF L=1 THEN 2180 
580 IF C=1 THEN 1530 
590 A=-1 
600 B=1 

610 IF T( 5) <>0 THEN 650 
620 T(5)=-1 
630 M=5 • 

64 0 GOTO 1 51 0 

650 IF T(5)<>1 THEN 700 

660 IF T(1)<>0 THEN 740 


670 T(1)=-1 

680 M=1 

690 GOTO 1510 

700 IF (T(2)=1)+(T(1)=0)=-2 THEN 1390 
710 IF (T(4)=1)+(T(1)=0)=-2 THEN 1390 
720 IF (T(6)=1)+(T(9)=0)=-2 THEN 1490 
730 IF (T(8)=1)+(T(9)=0)=-2 THEN 1490 
740 IF AOl THEN 830 
750 D=3*INT((M-l)/3)+1 
760 IF DOM THEN 780 
770 L=1 

780 IF D+lOM THEN 800 
790 L=2 

800 IF D+20M THEN 850 

81 0 L=3 

820 GOTO 850 

830 FOR D=1 TO 7 STEP 3 

840 FOR L=1 TO 3 

850 IF T(D)<>A THEN 910 

860 IF T(D+2)<>A THEN 970 

870 IF T(D+1)<>0 THEN 1020 

880 T(D+1)=-l 

890 M=D+1 

900 GOTO 1510 


1 , 1 ))) 
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91 0 IP T(D)=B THEN 1020 
920 IF T(D+2)<>A THEN 1020 
930 IF T(D+l)<>A THEN 1020 
940 T(D)=-1 
950 M=D • 

960 GOTO 1510 

970 IF T(D+2)<>0 THEN 1020 

980 IF T(D+l)<>A THEN 1020 

990 T(D+2)=-l 

1000 M=D+2 

1010 GOTO 1510 

1020 IF T(L)<>A THEN 1080 

1030 IF T(L+6)<>A THEN 1140 

1040 IF T(L+3)<>0 THEN 1190 

1050 T(L+ 3) =-1 

1060 M=L+3 


1070 GOTO 1510 

1080 IF T(L)=B THEN 11 90 

1090 IF T(L+6)<>A THEN 1190 

1100 IF T(L+ 3)<>A THEN 1190 

1110 T( L) =-1 

1120 M=L 

1130 GOTO 151 0 

1140 IF T(L+6)<>0 THEN 1190 

1150 IF T(L+3)<>A THEN 1190 

1160 T(L+ 6)=-1 

1170 M=L+6 • 

1180 GOTO 1510 

1190 IF A=1 THEN 1230 


1200 IF (D=7)+(L=3)=-2 THEN 1230 
1 21 0 NEXT L 
1220 NEXT D 

1230 IF T(5)<>A THEN 1280 
1240 IF (T(3)=A)+(T(7)=0)=-2 THEN 1460 
1250 IF (T(9)=A)+(T(l)=0)=-2 THEN 1390 
1260 IF (T(7)=A)+(T(3)=0)=-2 THEN 1430 
1270 IF <T(9)=0)+(T(1)=A)«-2 THEN 1490 


1 280 IF AO-1 THEN 1320 
1290 A=1 
1 300 B=-1 
1310 GOTO 740 

1320 IF (T(9)=1)+(T(3)=0 )*-2 THEN 1420 

1330 FOR 1=2 TO 9 

1340 IF T(I)<>0 THEN 1380 

1350 T(I)=-l 

1360 M=I 

1 370 GOTO 1510 


1380 NEXT I 
1390 T(1)=-1 
1400 M=1 
1 41 0 GOTO 1 51 0 
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1420 
1 430 
1 440 
1 450 
1 460 
1470 
1 480 
1 490 
1 500 
1 510 
1 520 
1 530 
1 540 
1 550 
1 560 
1 570 
1 580 
1 590 
1 600 
1 61 0 
1 620 
1 630 
1 640 
1650 
1 660 
1 670 
1 680 
1 690 
1700 
1710 
1 720 
1730 
1740 
1 750 
1760 
1 770 
1 780 
1 790 
1 800 
1810 
1 820 
1 830 
1 840 
1 850 
1 860 
1 870 
1880 
1 890 
1 900 
1 91 0 


IF T(1)=1 THEN 1330 

T( 3)=-l 

M=3 

GOTO 1 51 0 
T(7)= -1 
M=7 - 

GOTO 1510 
T(9)= -l 
M=9 - 

CALL SOUND(100,440,2) 

GOSUB 1640 

CALL SOUND(100,1497,2) 

CALL KEY(0,K,S) 

IF S<1 THEN 1540 

IF (K< 49)+(K>57)THEN 1530 

M=K-48 

IF T(M)<>0 THEN 1530 
A= 1 

T(M)=1 
GOSUB 1640 

IF L=1 THEN 2190 ELSE 590 
STOP 

C=ABS(C-1) 

ON C+l GOTO 1660,1720 
CALL HCHAR(X(M),Y(M),112) 

CALL HCHAR(X(M),Y(M)+2,113) 
CALL HCHAR(X(M)+1,Y(M)+1,114) 
CALL HCHAR(X(M)+2,Y(M),113) 
CALL HCHAR (X(M)+2,Y(M)+2,112) 
GOTO 1 81 0 

CALL HCHAR(X(M),Y(M),104) 

CALL HCHAR(X(M),Y(M)+l,105) 
CALL HCHAR(X(M),Y(M)+2,106) 
CALL HCHAR(X(M)+1,Y(M),107) 
CALL HCHAR(X(M)+1,Y(M)+2,108) 
CALL HCHAR(X(M)+2,Y(M),109) 
CALL HCHAR(X(M)+2,Y(M)+1 ,110) 
CALL HCHAR(X(M)+2,Y(M)+2,111) 
CALL HCHAR(X(M)+l,Y(M)+l,32) 
FOR 1=1 TO 7 STEP 3 
IF T(I)<>T(I+1)THEN 1860 
IF T(I)<>T(I+2)THEN 1860 
IF T(I)=-l THEN 2050 
IF T(I)=1 THEN 2030 
NEXT I 

FOR 1=1 TO 3 

IF T(I)<>T(I+3)THEN 1920 

IF T(I)OT(I + 6) THEN 1920 
IF T(I)■-! THEN 2050 
IF T(I)=1 THEN 2030 
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1920 NEXT I 
1 930 FOR 1 = 1 TO 9 
1 940 IF T ( I) =0 THEN 1970 
1950 NEXT I 

1 960 FL=1 

1970 IF T(5)<>A THEN 2000 
1980 IF (T(1)=A)+(T(9)=A)=-2 THEN 2020 
1990 IF (T(3)=A)+(T(7)=A)=-2 THEN 2020 
2000 IF FL=1 THEN 2070 

2 010 RETURN 

2020 IF A=-1 THEN 2050 
2030 PRINT "HAI VINTOI!" 

2040 GOTO 2080 

2050 PRINT "HO VINTOMI" 

2060 GOTO 2080 
2070 PRINT "PARITÀ'." 

2080 FOR 1=1 TO 20 

2090 CALL SOUND(100,INT(RND*500)+500,2) 
2100 NEXT I 

2110 PRINT :"CI RIPROVI? (S/N)" 

2120 CALL SOUND(100,1497,2) 

2130 CALL KEY(0,K,S) 

2140 IF K=83 THEN 270 
2150 IF K<>78 THEN 2130 
2160 CALL CLEAR 
2170 STOP 

2180 IF C=1 THEN 1530 

2190 M=INT(RND*9)+1 

2200 IF T(M)<>0 THEN 2190 

2210 A=-l 

2220 T(M)=-l 

2230 GOSUB 1640 

2240 GOTO 1530 

2250 END 




2 Vìvere pericolosamente 


16/48K 


Amate una vita spericolata? India¬ 
na Jones & C. sono i vostri idoli? 
Allora provate a raggiungere il te¬ 
soro (segnato da una X) nascosto 
nella palude, sfuggendo ai ferocis¬ 
simi zombie che lo custodiscono 


da tempo immemorabile. Perdere¬ 
te una delle vostre cinque vite 
quando sarete raggiunti da uno 
zombie, quando lascerete scadere 
il tempo a vostra disposizione, o se 
cadrete in una zona acquitrono- 


26 






sa (simboleggiata da quella specie 
di alga verde...). 

Il gioco, per Spectrum \ 6 e 48K, 
pre¬ 


senta dieci livelli di difficoltà, e con¬ 
sente di ridefinire i tasti di controllo 
dirinizio di ogni nuova partita. 


1 REM *********************** 

2 REM VIVERE PERICOLOSAMENTE 

3 REM *********************** 

10 FOR a-1 TO 3: READ aS 

20 FOR b=0 TO 7 
30 READ c: POKE USR a$+b,c 
40 NEXT b 
50 NEXT a 

60 DATA "a",0, 146, 146,84,56,1 6,56,0 
70 DATA "b",0,60,90,255,165,60,231,0 
80 DATA "C",56,84,40,124,186,186,40,108 
140 BORDER 0: PAPER 0: INK 7: CLS 
150 POKE 23658,8 
180 LET K$=”8765" 

190 GO SUB 9000 
200 REM variabili 
210 DIM AS(19,32) 

220 FOR Z=1 TO 60 

230 LET A$(INT (RND*19)+1,INT (RND*32+1))="A" 

250 LET SC-0 

260 DIM C(10) : DIM D(10) 

270 FOR Z=ì TO 10 

280 LET C(Z)=INT (RND*19+1) 

290 LET D(Z)=INT (RND*32) 

300 IF A?(C(Z),D(Z)+1)="A" THEN GO TO 280 
310 NEXT Z 

320 LET A=INT (RND*19+1) 

330 LET B=INT (RND*32) 

340 LET LI=5 

350 LET 1=INT (RND*19+1) 

360 LET J-INT (RND*32) 

370 LET A?(I,J+1)="X" 

380 LET TIME-0 
400 CLS 

410 PRINT AT 21,0;"PUNTI :";SC 
415 GO SUB 8000 
420 FOR Z=1 TO 10 

430 PRINT INK (RND*4+2) ;AT C(Z) ,D(Z);"B" 

440 NEXT Z 

445 INPUT AT 0,O;"LIVELLO DI GIOCO ? 1 - FACILE / IO ■ 

DIFFICILE ";SK 

446 IF SK<1 OR SK>10 THEN GO TO 445 
450 GO SUB 7000 

980 LET F-INT (RND*9+1) 

990 FOR G=1 TO INT (RND*5+6) 

1000 LET Al«A; LET Bl-B 
1010 LET ZS-INKEVS 

1020 LET A=A+(Z$=KS(3) AND A<19)-(Z$=KS(2) AND A>1) 

1030 LET B = B+(Z$-K$ (1) AND B<3)') - ( Z$»K$ ( 4 ) AND B>0) 

1040 IF Al-A AND Bl=B THEN GO TO 1060 
1050 PRINT AT Al,Bl;A$(Al,Bl+1) 

1060 PRINT INK 8;AT A,B;"C" 

1080 IF AS(A,B+1)= "A" THEN PRINT AT A,B; INK 4;"A": PRINT FLASH 1; 

AT 21,16;" SPLASH : FOR V»1 TO 75: NEXT V: GO TO 3005 
1101 FOR E=F TO F+l 
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1105 LET CI=C(E): LET Dl=D(E) 

Ilio IF A<C(E) THEN LET C(E)=C(E)-1 
1120 IF A>C (E) THEN LET C (E) =C (E)+1 
1130 IF B>D(E) THEN LET D(E)=D(E)+1 
1140 IF 8<D(E) THEN LET D(E)=D(E)-1 
1150 PRINT AT CI,D1;AS(CI,Dl+l) 

1160 PRINT INK (RND*4+2);AT C(E),D(E);"B" 

1180 IF A$(C(E) ,D(E)+1)-"A" OR A$(C(E),d7e)+1)=”X“ THEN GO SUB 2000 
1 1 90 NEXT E V ' 

1200 IF ATTR (A,B)<>7 THEN GO TO 3000 
1300 IF A=I AND B=J THEN GO TO 5000 
1500 PRINT AT I,J; INK 7;"X" 

1510 LET TIME-TIME+SK 

1520 PLOT 0,175: DRAW TIME,0 

1530 IF TIME>245 THEN GO TO 6000 

1900 NEXT G 

1990 GO TO 950 

2000 LET SC-SC+1 

2010 BEEP .1,30 

2020 PRINT INK 4;AT C(E),D(E);"A" 

2030 LET C(E)= INT (RND*19+1) 

2040 LET D(E)«INT (RND*32) 

2050 IF A$(C(E),D(E)+1)-"A“ THEN GO TO 2030 
2060 PRINT INK 7;AT 21,6;SC 
2090 RETURN 

3000 REM cattura 

3001 PRINT FLASH 1;AT 21,16;"PRESO1"; 

3005 PRINT " 

3010 LET LI-LI-1 

3020 BEEP .02,10: BEEP .02,20 

3030 IF INKEY$<>"“ THEN GO TO 3020 

3040 PRINT INK 7;AT 21,16;" VITE:";LI;" " 

30 50 LET A=INT (RNDM9+1) 

3060 LET B-INT (RND*32) 

3070 IF A$(A»B+1)*"A" THEN GO TO 3050 

3080 IF LI=0 THEN GO TO 4000 

3085 GO SUB 7000 

3090 GO TO 1000 

3500 INK 2 

3590 GO TO 1000 

4000 PRINT FLASH 1;AT 10,6;"LA PARTITA"; 

4010 PRINT " "; 

4020 PRINT INVERSE 1; FLASH 1 ; "E 1 FINITA" 

4030 PRINT AT 21,13;"PREMI 1 PER GIOCARE" 

4040 IF INKEY$<>"1" THEN GO TO 4040 
4050 GO TO 190 
5000 REM vittoria 

5010 LET BO-255: FOR Z=TIME TO 0 STEP -1 

5020 LET BO=BO-l: PRINT AT 21,16;"BONUS :";BO;" " 

5030 BEEP .01,2/4.25: PLOT OVER 1;Z,175: NEXT Z 

5031 LET TIME=0: LET SC-SC+BO: PRINT AT 21,6;SC 
5035 LET A$(I, J+l)*" " 

5040 LET I"INT (RND*19+1): LET J-INT (RND*32) 

5045 IF A$ ( I, J+l ) *"A" THEN GO TO 5040 i 

5050 FOR Z-l TO 10: PRINT AT I,J;" FOR X=1 TO 10: NEXT X: PRINT 
AT I,J;"X": FOR X»1 TO 10: NEXT X: NEXT Z 

5060 IF INKEY5»"" THEN GO TO 5060 
5065 PRINT AT 21,16;" VITE:";LI;" " 

5070 GO TO 1310 
6000 REM senza vita! 

6005 BEEP .8,-10: FOR X=1 TO 30: NEXT X 
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6010 FOR Z-LI-TO 0 STEP -1: BEEP .2,Z*10: PRINT AT 21,16;" VITE;";Z; 

FOR X=1 TO 10: NEXT X: NEXT Z: GO TO 4000 
7000 FOR Z-0 TO 7 STEP .2 
701 0 BEEP .05,Z*10-10 
7020 PRINT AT A,B; INK Z;"C" 

7030 NEXT Z 

7040 IF INKEYS-”" THEN GO TO 7040 
7050 RETURN 

8000 FOR Z = 1 TO 1 9 

8001 PLOT 0,169: DRAW 255,0 

8002 PLOT 0,14: DRAW 255,0 
8005 FOR X-0 TO 31 

8010 IF AS(Z,X+l )-"A" THEN PRINT AT Z,X; INK 4;"A" 

801 5 NEXT X 
8020 NEXT Z 

8050 PRINT AT I,J; INK 7;”X" 

8090 RETURN 

9000 REM presentazione 
9010 CLS 

9020 PRINT " VIVERE PERICOLOSAMENTE ”,,,,"- 

-"TASTI . 

9030 PRINT AT 6>1 3;KS<1); INK 3;" - DESTRA" 

904 0 PRINT AT 8,13;K$<2); INK 4;” ALTO" 

9050 PRINT AT 10,13;K$(3); INK 5;"-- BASSO" 

9060 PRINT AT 12, 13;KS(4) ; INK 6;" * SINISTRA" 

9070 PRINT AT 14,0;"---" 

9080 PRINT PREMI ";•INK-5;"C"; *•PER■CAMBIARLI" 

9090 PRINT " PREMI "; INK 4;"G";" PER GIOCARE" 

9100 PRINT '"-" 

9110 PRINT AT 21,0;” VIVERE PERICOLOSAMENTE 

9130 IF INKEY$="C" THEN GO TO 9200 
9140 IF INKEY$="G" THEN BEEP .1,0: RETURN 
9190 GO TO 9130 

9200 REM cambia i tasti 

9201 IF INKEYS<>"" THEN GO TO 9201 
9205 FLASH 1 

9210 FOR Z«1 TO 4 

9220 PRINT AT 4+Z*2,13;K$(Z) 

9230 LET ZS-INKEYS 

9240 IF Z$="" THEN GO TO 9230 

9250 PRINT FLASH 0;AT 4+Z*2,13;ZS 

9260 LET K$(Z)-Z$: BEEP .01,45: IF INKEYS<>"" THEN GO TO 9260 
9265 NEXT Z 
9270 FLASH 0 

9275 LET WWW-0: FOR Z-l TO 4: FOR X-l TO 4: IF ZOX THEN LET WWW=W 
WW+(KS(Z)-KS(X)) 

9280 NEXT X: NEXT Z: IF WWWO0 THEN GO TO 9200 
9290 GO TO 9130 
9999 RUN 
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Pesciolini 


16/48K 


Avete 30 colpi a disposizione per 
cercare di centrare il maggior nu¬ 
mero di pesci che passano nel fiu¬ 
me. Spostatevi dunque con i tasti 
"Q" (sinistra) e "W“ (destra) e spa¬ 


rate premendo il tasto "P". La linea 
9 (REM) serve solo ad aiutarvi nella 
fase di battitura delle linee 20 e 30, 
e non presenta alcuna utilità ai fini 
del gioco. 


1 REM ***»•***•**•*•*•••***** 

2 REM *»* PESCIOLINI *** 

3 REM ***»•*•*••••*•••*•••*•• 

5 GO SUB 1000 

9 REM 12345678901234567890123456789012 
10 LET hi=0 

20 LET a$ = " AB " 

30 LET b$»" CD 

40 LET d$ = " “ 

60 LET po=l5 
70 LET bullets=0 
80 LET score=0 

90 BRIGHT 1: BORDER 5: PAPER ì: INK 7: CLS 
95 PRINT #0;AT 0,0; PAPER 2; BRIGHT 1;" 

II 

100 FOR a=0 TO 31: PRINT INK 2;AT 19,a;"E B ;AT 20,a;"{SG8}";AT 21,a; 
"{SG8}": NEXT a 

110 FOR a=0 TO 31; PRINT PAPER 5; BRIGHT 0;AT 0,a; B ";AT l,a;” 

NEXT a 

120 PRINT AT 0,11; BRIGHT 0; PAPER 5; INK 1 ;"FGHI{G8}JKLHM" 

130 PRINT PAPER 3;AT 2,0;dS;AT 3,0;d$;AT 4,0;d$ 

150 PRINT PAPER 3; INK 7;AT 4,po; B Q IF bullets>30 THEN GO TO 7 
00 

155 PRINT PAPER 2; INK 7; BRIGHT 1;AT 21,7;"COLPI SPARATI* 1 ' ; bullets 

160 IF INKEYS*"q n AND po>0 THEN LET po«po-l 
170 IF INKEY$* B w" AND po<29 THEN LET po*po+l 

180 IF INKEYS“"p" THEN BEEP .005,5: BEEP .005,10: LET bullets-bulle 
ts+1: GO TO 500 

185 PRINT PAPER 2; INK 7; BRIGHT 1;AT 21,7; "COLPI SPARATIbullets 

190 PRINT INK 5;AT 17,0;a$ 

200 PRINT INK 3;AT 14,0;b$ 

210 LET a$=a$(31)+a$( TO 31) 

220 LET b$=b$(2 TO )+b$(l) 

230 GO TO 150 

500 FOR g-5 TO 18 

510 PRINT INK 6;AT g,po+l;"N" 

520 IF SCREENS <g,po)<>" " THEN GO TO 600 
530 PRINT AT g,po+l;" " 

540 PRINT INK 5;AT 17,0;a$; INK 3;AT 14,0;b$ 

550 LET aS=aS(31)+a$ ( TO 31): LET b$*b$(2 TO )+b$(l) 

560 BEEP .001,60: NEXT g 
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570 GO TO 150 

600 PRINT AT 3,1; FLASH 1;"PRESO": FOR p=0 TO 3: FOR h=0 TO 7: 

PRINT INK h;AT g,po;"OP";AT g+1,po;”PO": PRINT INK h;AT g,po; 
"PO";AT g+1,po;"OP": BEEP .008,p: NEXT h: NEXT p: PRINT 
BRIGHT 1; PAPER J; FLASH 0;AT 3,1 j" " 

610 LET score=score+50 

620 PRINT AT g,po;" ";AT g+l,po; M ": GO TO 150 

700 BRIGHT 1: BORDER 0: PAPER 0: INK 7: CLS 
710 PRINT AT 0,4;"Punteggio Finale: ";score 
720 IF score>hi THEN LET hi=score 
730 PRINT AT 2,3;11 miglior punteggio: ";hi 

740 PRINT INK (INT (RND*6)+1);AT 6,6;"Un 1 altra partita (S/N)?" 

750 IF INKEY$="s" THEN GO TO 60 

760 IF INKEYS*"n" THEN BRIGHT 0: INK 0: BORDER 7: PAPER 7: CLS : 
STOP 

770 BEEP .005,INT (RND*60)+1: GO TO 740 
999 STOP 


1000 
101 0 
1020 
1100 
1110 
1120 
1130 
1140 
1 1 50 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1 260 


REM udg 

FOR a=USR "a" TO USR "q"+7: READ udg: 
RETURN 

DATA 199,47,223,187,124,223,47,199 
DATA 224,248,206,151,207,254,248,224 
DATA 7,31,115,233,243,127,31,7 
DATA 227,244,251,221,62,251,244,227 
DATA 1,17,21,149,183,191,255,255 
DATA 254,198,192,240,192,192,192,192 
DATA 126,24,24,24,24,24,24,126 
DATA 124,198,192,124,6,6,198,124 
DATA 198,198,198,254,198,198,198,198 
DATA 252,198,198,252,198,198,198,252 
DATA 192,192,192,192,192,192,198,254 
DATA 124,124,198,254,198,198,198,198 
DATA 126,24,24,24,24,24,24,24 
DATA 36,36,129,165,16,0,74,98 
DATA 146,73,36,146,73,36,146,73 
DATA 73,146,36,73,146,36,73,146 
DATA 219,231,219,102,102,60,60,24 


POKE a,udg: NEXT a 
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Da questo mese 
S. Commodore è in due 
versioni: per C 64 e 
per VIC 20,C 16 E Plus/4. 
LA RIVISTA A MISURA DI 
COMPUTER! 


Sono idee 

'J.SOft™, 





